home *** CD-ROM | disk | FTP | other *** search
/ The Fast Show Comedy Pack / The Fast Show Comedy Pack.iso / FSQuiz / FSQuiz.dxr / Internal_24_VR_Question.ls < prev    next >
Encoding:
Text File  |  1999-11-15  |  2.0 KB  |  75 lines
  1. property pInfo, pVRCount, pState, ancestor
  2. global gDB, gCurrentQuestion, gTherm, gPicPath, gAudioPath
  3.  
  4. on beginSprite me
  5.   pVRCount = 2
  6.   pState = #GETQUESTION
  7.   gCurrentQuestion = sprite(me.spriteNum)
  8.   sound playFile 1, gAudioPath & "voice\" & gDB.pCurrentSectionType & "intro.wav"
  9. end
  10.  
  11. on exitFrame me
  12.   case pState of
  13.     #GETQUESTION:
  14.       mGetQuestion(me)
  15.       pState = #WAITAUDIO
  16.     #WAITAUDIO:
  17.       if not soundBusy(1) then
  18.         pState = #NULL
  19.         go("VRQuestion")
  20.       end if
  21.   end case
  22. end
  23.  
  24. on mRevealAnswer me
  25.   pState = #NULL
  26.   member("Answer" & pInfo.Answer_Correct & "_Text").forecolor = 0
  27.   ancestor = new(script("puppetAudioSeq"), "mRevealOver" && gCurrentQuestion, 1, [[1, "ting"]])
  28. end
  29.  
  30. on mRevealOver me
  31.   ancestor = 0
  32.   pState = #NULL
  33.   gTherm.mDoBoardGame()
  34. end
  35.  
  36. on mGetQuestion me
  37.   qFields = [#ID, #Char_Code, #question, #Answer_1, #Answer_2, #Answer_3, #Answer_4, #Char_Name, #Answer_Correct, #Vid_File]
  38.   idNum = mGetLRUQuestion(gDB, #VR, [:])
  39.   pInfo = mGetQuestionRecord(gDB, #VO, idNum, qFields)
  40.   PIC = pInfo.Vid_File
  41.   put "F" into qFields.char[2]
  42.   setaProp(pInfo, #Pic_File, PIC)
  43.   member("quizPic").fileName = gPicPath & "questions\" & pInfo.Pic_File & ".jpg"
  44.   mSetQuestionResources(me)
  45. end
  46.  
  47. on mSetQuestionResources me
  48.   member("Question_Text").text = pInfo.question
  49.   member("Answer1_Text").text = pInfo.Answer_1
  50.   member("Answer1_Text").forecolor = 255
  51.   member("Answer2_Text").text = pInfo.Answer_2
  52.   member("Answer2_Text").forecolor = 255
  53.   member("Answer3_Text").text = pInfo.Answer_3
  54.   member("Answer3_Text").forecolor = 255
  55.   member("Answer4_Text").text = pInfo.Answer_4
  56.   member("Answer4_Text").forecolor = 255
  57. end
  58.  
  59. on mQuestionOver me
  60.   if pVRCount < 1 then
  61.     go("static")
  62.   else
  63.     pVRCount = pVRCount - 1
  64.     mGetVRQuestion(me)
  65.   end if
  66. end
  67.  
  68. on mGetVRQuestion me
  69.   qFields = [#ID, #question, #Answer_1, #Answer_2, #Answer_3, #Answer_4, #Char_Name, #Answer_Correct]
  70.   idNum = mGetLRUQuestion(gDB, #VR, [:])
  71.   pInfo = mGetQuestionRecord(gDB, #VO, idNum, qFields)
  72.   mSetQuestionResources(me)
  73.   go("VRQuestion")
  74. end
  75.